#!/usr/bin/perl
#
#
while($line=<STDIN>) {
	chomp($line);
	@words = split(/\s+/,$line);
	$sentence = "";
	foreach $word (@words) {
		my $newWord;
		if($word=~/\+/) {
			@f = split(/\+/,$word);
			$newWord = $f[0];
			if($newWord eq "NULL") {
				next;
			}

			if($f[2] ne "NULL") {
				$f[2]=~s/0//g;
				$newWord.=$f[2];
			}
			if($f[1] ne "NULL") {
				$newWord.="_".$f[1];
			}
			$newWord=~s/_/ /g;
		}
		else {
			$newWord = $word;
		}
		$sentence.=$newWord." ";
	}
	$sentence=~s/\s+$//g;
	$sentence=~s/ unhone ne / unhone /g;
	print $sentence."\n";
}
